Исходный текст

Option Explicit

'==============================================================================
' Включить в лист выборки имена всех объектов с Рабочего стола, имеющих состав.
' Текст программы надо скопировать в обработчик события QueryAfterExecute пустой
' выборки.
'==============================================================================
Sub Query_AfterExecute(Sheet, Query, Obj)
        Dim TempObj, count, f
        
        With ThisSheet
                 ' Добавить столбец описания объекта
                .AddColumn
                .ColumnName(.ColumnsCount - 1) = "Имя объекта"
                
                For Each TempObj In ThisApplication.Desktop.Objects
                        
                        'Если у объекта есть состав...
                        count = TempObj.Objects.Count 
                        If count > 0 Then
                                 ' Добавить строку с описанием объекта
                                .AddRow
                                .CellValue(.RowsCount - 1, "Имя объекта") = TempObj.Description
                           
                                   'Если в составе более одного объекта, выделить цветом название объекта
                                If count > 1 Then
                                        Set f = Sheet.RowFormat(i)
                                        
                                        'Задать значения свойствам "Жирный шрифт" и "Цвет"
                                        f.Bold = TRUE 
                                        f.Color = 8388736 
                                End If
                        End If
                Next
                ' Сортировать таблицу по первому столбцу
                .Sort "Имя объекта", TRUE 
        
        End With
End Sub